home *** CD-ROM | disk | FTP | other *** search
/ Publication 14 / Publication_14_19xx_Civitas_de_Side_B.d64 / don't smoke !!! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  70 lines
  1. 10 poke53281,1:poke53280,1:n=1:sc=1670:cc=55942:poke252,25:poke254,5
  2. 20 print"[147] caution  smoking is hazardous[154]"
  3. 30 fort=12288to12670:reada:poket,a:next
  4. 40 fort=49152to49215:reada:poket,a:next
  5. 50 v=53248:pokev+27,255:pokev+29,25:pokev+23,24:o=v+21
  6. 60 fort=0to7:pokev+t+39,14:poket+2040,t+192:next
  7. 70 pokev,70:pokev+2,52:pokev+4,52:pokev+6,10:pokev+8,42:pokev+10,62
  8. 80 pokev+1,130:pokev+3,162:pokev+5,183:pokev+7,64:pokev+9,183:pokev+11,166
  9. 90 pokesc,160:pokecc,1
  10. 100 print"meet joe.";:pokeo,6:fort=1to2500:next
  11. 105 print"   he smokes."
  12. 110 pokesc,32:sp=39:sys49152:fort=1to2500:next
  13. 120 gosub670
  14. 130 z=z+1:ifz=3thensp=47
  15. 140 ifz=11then160
  16. 150 goto120
  17. 160 print"[145]joe's breath gets shorter":gosub670:poke252,8:poke254,2
  18. 170 fori=0to6:gosub670:next
  19. 180 print"[145]          joe's lungs grow blacker...":poke252,5:poke254,1
  20. 190 pokeo,51:pokev+1,145:fort=29to0step-1:poket+12547,255
  21. 200 fori=1tot*25:next:pokev+1,145:next
  22. 210 print"[147][145]finally, joe takes his last...":sp=18:gosub680:poke254,2
  23. 220 fort=0to22:pokev+3,162+t
  24. 230 fori=1to100:next:next
  25. 240 pokev+1,120:print"[147]
  26. 250 [151]v[170]23,17:[151]o,1:[151]254,255:[141]680
  27. 260 [129]t[178]12288[164]12350:rn[178][181]([187](0)[172]256):[151]t,[194](t)[175] rn
  28. 270 [130]:c[178]c[170]1
  29. 280 [139]c[179]6[167]260
  30. 290 [153],"    don't smoke!"
  31. 300 [151]v[170]2,100:[151]v[170]3,115:[151]o,2
  32. 310 [129] b[178]0[164]5000:[130]b:[158]64738
  33. 320 [143] *"puff"************************
  34. 330 [131] 3,57,224,28,198,24,32,0,6,78,7,1,73,20,245,73,84,133
  35. 340 [131] 142,86,201,136,84,137,136,84,129,72,96,145,64,0,6,60
  36. 350 [131] 24,56,2,39,192,3,192,0,0,6,0,0,9,0,0,6,0,0,0,0,0
  37. 360 [131] 48,0,0,72,0,0,48,0
  38. 370 [143] *joe's head********************
  39. 380 [131] 103,15,224,0,60,248,0,113,255,56,255,255,252,234,255
  40. 390 [131] 252,191,160,32,255,134,112,255,200,16,243,195,56,225,192
  41. 400 [131] 16,225,128,8,225,128,132,97,128,66,124,0,62,112,0,8
  42. 410 [131] 232,0,248,8,128,24,4,96,44,2,24,198,1,7,3,0,129,0
  43. 420 [143] *joe's body********************
  44. 430 [131] 103,3,255,128,4,0,32,8,32,16,16,32,16,31,192,16,16
  45. 440 [131] 64,112,16,64,144,16,128,144,21,0,144,17,0,80,17,0,80
  46. 450 [131] 17,255,160,8,247,160,7,247,192,3,239,0,3,207,0,3
  47. 460 [131] 207,0,3,207,0,3,199,0,3,252,248,3,254,252
  48. 470 [143] *cigarettes********************
  49. 480 [131] 103,0,1,224,0,7,32,0,29,32,0,21,32,15,245,32,15,255
  50. 490 [131] 224,15,255,224,15,255,224,15,255,224,15,255,224,15,255
  51. 500 [131] 224,15,255,224,15,255,224,15,255,224,15,255,224,15,255
  52. 510 [131] 224,15,255,224,15,255,224,15,255,224,15,255,224,0,0,0
  53. 520 [143] *x-ray*************************
  54. 530 [131] 255,127,255,254,252,56,127,240,16,31,224,16,15,224,16,15
  55. 540 [131] 224,56,15,224,56,15,224,56,15,240,124,31,248,124,63,252
  56. 550 [131] 254,127,255,255,255,192,0,3,192,0,3,202,0,3,202,114,83
  57. 560 [131] 202,87,83,196,101,35,202,87,35,202,85,35,202,0,3,160
  58. 570 [143] *joe a-puffing*****************
  59. 580 [131] 0,0,0,0,0,6,0,0,25,0,0,18,0,0,12,0,0,0,0,0,0,0
  60. 590 [131] 0,0,0,0,0,0,0,10,0,0,18,0,0,12,0,0,0,0,0,0,0,0
  61. 600 [131] 96,0,0,64,0,0,0,0,0,0,28,0,0,12,0,0,4,0,0
  62. 610 [143] *interrupt data****************
  63. 620 [131] 120,169,13,141,20,3,169,192,141,21,3,88,96,238
  64. 630 [131] 6,208,198,253,165,253,208,7,206,1,208,165,254,133
  65. 640 [131] 253,198,251,165,251,208,26,24,173,10,208,74,176,9
  66. 650 [131] 238,10,208,206,11,208,76,57,192,206,10,208,238,11
  67. 660 [131] 208,165,252,133,251,76,49,234
  68. 670 [151]v[170]1,145:[151]o,sp:[141]680:[151]o,sp[171]1:[141]680:[142]
  69. 680 [129]k[178]1[164]500:[130]:[142]
  70.